VB 打开文件的代码该怎么写````

来源：百度知道 编辑：UC知道 时间：2024/06/06 14:59:22
比如说我要单击 Command1 后，打开"C:\QQ2007\QQ.EXE" 该怎么做```
如果C:\QQ2007\QQ.EXE 不存在,,则显示 文件不存在或拒绝访问,该怎么做```

Private Sub Command1_Click()
If Len(Dir("C:\QQ2007\QQ.EXE")) = 0 Then
MsgBox "文件不存在或拒绝访问!"
Else
Shell "C:\QQ2007\QQ.EXE", 1
End If
End Sub

在窗口添加一个按钮，按钮的名称为"Command1"标题"打开"
Private Sub Command1_Click()
If Len(Dir("C:\QQ2007\QQ.EXE")) = 0 Then
MsgBox "文件不存在或拒绝访问!"
Else
Shell "C:\QQ2007\QQ.EXE", 1
End If
End Sub

假设控件Text1中文本为文件路径
方法一：Shell "Explorer.exe" + Space(1) + "file:\\\" & Text1.Text
方法二：Shell "cmd.exe /c start " + Chr(34) + Chr(34) + " " + Chr(34) + Text1.Text + Chr(34), vbHide

区别：
方法一是用Explorer.exe打开文件的，打开网页时用的是IE，打开文本是用Notepad.exe。
方法二是用默认软件打开的。

shell "文件"

用OPEN语句，前提是你要先获得文件的地址才行，可以用Common Dialog 控件获得

【open】能够对文件输入/输出 (I/O)。

语法

Open pathname For mode [Acc